home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / arexxtutorial / usn / de-julian.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  177b  |  7 lines
  1. /* de-julian.rexx convert calendar date to julian date */
  2. numeric digits 15
  3. arg  dd mm yy
  4. a = yy%100
  5. b = 2-a+(a%4)
  6. say ((365.25*yy)%1) + ((30.6001*(mm+1))%1) + dd + 1720994 + b
  7.